home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / search_next.omed < prev    next >
Text File  |  1996-06-09  |  450b  |  14 lines
  1. /* Search */
  2. options results
  3. 'pl_stop'
  4. wi_isopen replacenotes var open
  5. if open then wi_activate replacenotes 
  6. else wi_open replacenotes
  7. 'wi_request "Search for this note/cmd?" "Yes|No" var req'
  8. if req then do forever
  9.     rn_findreplacesource next; found=result
  10.     if found then 'wi_request "Continue to search for next?" "Yes|No" var cont'
  11.     else do; wi_showstring "No more found!"; cont=0; end
  12.      if ~cont then leave
  13. end
  14. if ~open then wi_close replacenotes